home *** CD-ROM | disk | FTP | other *** search
/ Photopaedia 3: Still Lifes - Diane Wesson / Still Lifes - Diane Wesson.iso / pc / msstp / setup.mst < prev    next >
Text File  |  1994-10-09  |  4KB  |  158 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Photopaedia
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUITE       = 200
  13. CONST ASKQUITJ       = 250
  14. CONST DESTPATHJ      = 300
  15. CONST DESTPATHE      = 350
  16. CONST EXITFAILURE   = 400
  17. CONST EXITQUIT      = 600
  18. CONST EXITSUCCESS   = 700
  19. CONST OPTIONS       = 800
  20. CONST APPHELP       = 900
  21. CONST CHECK         = 2500
  22. CONST CHECKJ        = 2550
  23. CONST BADPATH       = 6400
  24. CONST ENDING        = 8000
  25. CONST ENDINGJ       = 8050
  26.  
  27. ''Bitmap ID
  28. CONST LOGO = 1
  29.  
  30. GLOBAL DEST$        ''Default destination directory.
  31. GLOBAL OPTCUR$      ''Option selection from option dialog.
  32.  
  33. DECLARE SUB Install
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  39.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  40.  
  41.     lng$ = GetIniKeyString("win.ini", "intl", "sLanguage")
  42.     IF lng$ = "jpn" THEN
  43.         title$ = "Photopaedia âZâbâgâAâbâv"
  44.         dlg% = DESTPATHJ
  45.         dlge% = ASKQUITJ
  46.     ELSE
  47.         title$ = "Photopaedia Setup"
  48.         dlg% = DESTPATHE
  49.         dlge% = ASKQUITE
  50.     END IF
  51.  
  52.     SetBitmap CUIDLL$, LOGO
  53.     SetTitle title$
  54.  
  55.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  56.     IF szInf$ = "" THEN
  57.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  58.     END IF
  59.     ReadInfFile szInf$
  60.  
  61.     szWinDir$ = GetWindowsDir()
  62.     szRoot$ = GetSymbolValue("STF_SRCDIR")
  63.  
  64.  
  65.  
  66.  
  67.  
  68. GETPATH:
  69.     SetSymbolValue "EditTextIn", "C:\"
  70.     SetSymbolValue "EditFocus", "END"
  71. GETPATHL1:
  72.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", APPHELP, HELPPROC$)
  73.     DEST$ = GetSymbolValue("EditTextOut")
  74.  
  75.     IF NOT sz$ = "CONTINUE" THEN
  76.         GOTO QUIT
  77.     END IF
  78.     IF IsDirWritable(DEST$) = 0 THEN
  79.         GOSUB BADPATH
  80.         GOTO GETPATHL1
  81.     END IF
  82.     UIPop 1
  83.  
  84.  
  85.  
  86.  
  87.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  88.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  89.     CopyFilesInCopyList
  90.  
  91.  
  92.  
  93.     CreateProgmanGroup "Photopaedia", "PHOTOPAE", cmoNone
  94.     ShowProgmanGroup  "Photopaedia", 1, cmoNone
  95.  
  96.     CreateProgmanItem "Photopaedia", "Still Lifes", MakePath(DEST$,"still\still.exe"), MakePath(DEST$,"still\dw.ico")+",ICON_1,100,100,"+szRoot$+"DATA", cmoOverwrite
  97.  
  98.     CreateProgmanItem "Photopaedia", "SL-Slideshow", MakePath(DEST$,"still\slauto.exe"), MakePath(DEST$,"still\auto.ico")+",ICON_1,300,100,"+szRoot$+"DATA", cmoOverwrite
  99.  
  100.     IF lng$ = "jpn" THEN
  101.         CreateProgmanItem "Photopaedia", "SL-Readme", MakePath(DEST$,"still\readmej.wri"), MakePath(DEST$,"still\read.ico")+",ICON_1,500,100,"+DEST$+"still", cmoOverwrite
  102.     ELSE
  103.             CreateProgmanItem "Photopaedia", "SL-Readme", MakePath(DEST$,"still\readmee.wri"), MakePath(DEST$,"still\read.ico")+",ICON_1,500,100,"+DEST$+"still", cmoOverwrite
  104.     END IF           
  105.  
  106. ''    sz$ = UIStartDlg(CUIDLL$, dlge%, "FInfo0DlgProc", APPHELP, HELPPROC$)
  107.  
  108. QUIT:
  109.  
  110.     END
  111.  
  112. '**
  113. '** Purpose:
  114. '**     Appends a file name to the end of a directory path,
  115. '**     inserting a backslash character as needed.
  116. '** Arguments:
  117. '**     szDir$  - full directory path (with optional ending "\")
  118. '**     szFile$ - filename to append to directory
  119. '** Returns:
  120. '**     Resulting fully qualified path name.
  121. '*************************************************************************
  122. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  123.     IF szDir$ = "" THEN
  124.         MakePath = szFile$
  125.     ELSEIF szFile$ = "" THEN
  126.         MakePath = szDir$
  127.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  128.         MakePath = szDir$ + szFile$
  129.     ELSE
  130.         MakePath = szDir$ + "\" + szFile$
  131.     END IF
  132. END FUNCTION
  133.  
  134. BADPATH:
  135.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  136.     IF sz$ = "REACTIVATE" THEN
  137.         GOTO BADPATH
  138.     END IF
  139.     UIPop 1
  140.     RETURN
  141.  
  142.  
  143.  
  144.  
  145. ASKQUIT:
  146.     sz$ = UIStartDlg(CUIDLL$, dlge%, "FQuitDlgProc", 0, "")
  147.  
  148.     IF sz$ = "EXIT" THEN
  149.         UIPopAll
  150.         ERROR STFQUIT
  151.     ELSEIF sz$ = "REACTIVATE" THEN
  152.         GOTO ASKQUIT
  153.     ELSE
  154.         UIPop 1
  155.     END IF
  156.     RETURN
  157.  
  158.